#!/usr/local/bin/perl
#
#

use FileManager::FileLister;
use DoxyDocumentor::DocumentFile; 



print "\n";
print "\n";
print "Doxygen documentor is getting initialised ...\n";
print "\nPlease select from the following menu.\n";
print "\n";
print "\n1. Parse all files in directory.";
print "\n2. Entering the filename." ;
print "\n";
print "\n";
print "\n";
$choice=<STDIN>;

print "You have seleted $choice";

#//!The following is to parse all files in the directory
if($choice == 1)
{
# get list of file names into an array
my @FileList = ListFiles("."); 
print "@FileList";
# pass each item of the array into a document converter module
foreach (@FileList) {
    print "\n";
    my $AnalysedFile = DocumentFile($_);
}
}
elsif($choice == 2)
{


}

#switch ($choice) {
 #   case [1] {
  #      print "You have seleted $choice"}

#}
